// Unidades

PROCESS UnidadSeleccionable(tx, ty)
//
// Unidad prototipo
//
PRIVATE
	int sx; int sy;
	
	int popup; // id del popup de seleccion
END

BEGIN

	file = unidades_fpg;
	graph = 1;

	sx = TILE_SIZE * tx + TILE_SIZE / 2;
	sy = TILE_SIZE * ty + TILE_SIZE / 2;
	
	LOOP
	
		// actualiza la posicion en pantalla
		x = sx - ts.x;
		y = sy - ts.y;
		
		// seleccion
		if ( tsCursor.tx == tx and tsCursor.ty == ty )
		
			if ( popup == 0 )	// crea el popup
				popup = popupSeleccion(tx, ty);
			end
			
			flags = 4;
		else
			
			if ( popup <> 0 ) 	// lo borra
				signal (popup, S_KILL);
				popup = 0;
			end
			
			flags = 0;
		end
		
		// se suicida al entrar en modo editor
		if ( modo_editor )
			break;
		end

		frame;
		
	END

END

PROCESS popupSeleccion(tx, ty)
//
// Muestra una imagen cuando el cursor se posiciona en una unidad
// Parametros:  Tiles de la unidad seleciconada
//

PRIVATE

END

BEGIN
	
	file = 0;
	graph = load_png ("png/gui-popup.png");

	LOOP
	
		x = (TILE_SIZE * tx + TILE_SIZE / 2) - ts.x;
		y = (TILE_SIZE * ty + TILE_SIZE + 8) - ts.y;
		
		frame;
	END

END

